home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / scroll1 / scroll1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-07  |  4.4 KB  |  158 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "RGB Function Color Demonstration"
  5.    ClientHeight    =   3990
  6.    ClientLeft      =   1980
  7.    ClientTop       =   1995
  8.    ClientWidth     =   5715
  9.    Height          =   4680
  10.    Icon            =   SCROLL1.FRX:0000
  11.    Left            =   1920
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   3990
  15.    ScaleWidth      =   5715
  16.    Top             =   1365
  17.    Width           =   5835
  18.    Begin PictureBox picPicture1 
  19.       Height          =   855
  20.       Left            =   1080
  21.       ScaleHeight     =   825
  22.       ScaleWidth      =   4065
  23.       TabIndex        =   9
  24.       Top             =   2040
  25.       Width           =   4095
  26.    End
  27.    Begin CommandButton cmdClose 
  28.       Caption         =   "&Close"
  29.       Height          =   495
  30.       Left            =   4320
  31.       TabIndex        =   6
  32.       Top             =   3360
  33.       Width           =   1215
  34.    End
  35.    Begin HScrollBar hsbBlue 
  36.       Height          =   255
  37.       LargeChange     =   35
  38.       Left            =   1080
  39.       Max             =   255
  40.       SmallChange     =   2
  41.       TabIndex        =   5
  42.       Top             =   1560
  43.       Width           =   4095
  44.    End
  45.    Begin HScrollBar hsbGreen 
  46.       Height          =   255
  47.       LargeChange     =   35
  48.       Left            =   1080
  49.       Max             =   255
  50.       SmallChange     =   2
  51.       TabIndex        =   4
  52.       Top             =   960
  53.       Width           =   4095
  54.    End
  55.    Begin HScrollBar hsbRed 
  56.       Height          =   255
  57.       LargeChange     =   30
  58.       Left            =   1080
  59.       Max             =   255
  60.       SmallChange     =   2
  61.       TabIndex        =   3
  62.       Top             =   360
  63.       Width           =   4095
  64.    End
  65.    Begin Label lbl_HexColorNumber 
  66.       Height          =   255
  67.       Left            =   1320
  68.       TabIndex        =   8
  69.       Top             =   3360
  70.       Width           =   2055
  71.    End
  72.    Begin Label Label4 
  73.       Caption         =   "Hex Color Number:"
  74.       Height          =   495
  75.       Left            =   240
  76.       TabIndex        =   7
  77.       Top             =   3120
  78.       Width           =   855
  79.    End
  80.    Begin Label Label3 
  81.       Caption         =   "Blue"
  82.       Height          =   255
  83.       Left            =   240
  84.       TabIndex        =   2
  85.       Top             =   1560
  86.       Width           =   735
  87.    End
  88.    Begin Label Label2 
  89.       Caption         =   "Green"
  90.       Height          =   255
  91.       Left            =   240
  92.       TabIndex        =   1
  93.       Top             =   960
  94.       Width           =   615
  95.    End
  96.    Begin Label Label1 
  97.       Caption         =   "Red"
  98.       Height          =   255
  99.       Left            =   240
  100.       TabIndex        =   0
  101.       Top             =   360
  102.       Width           =   615
  103.    End
  104.    Begin Menu menuAboutBox 
  105.       Caption         =   "&About"
  106.    End
  107. Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Any) As Integer
  108. Sub cmdClose_Click ()
  109.     End
  110. End Sub
  111. Sub DoColor ()
  112.     lbl_HexColorNumber.Caption = "&&H" + Hex$(RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value))
  113.     picPicture1.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)
  114. End Sub
  115. Sub Form_Load ()
  116.     'Center form
  117.     Left = (Screen.Width - Width) / 2
  118.     Top = (Screen.Height - Height) / 2
  119. End Sub
  120. Sub hsbBlue_Change ()
  121.     hsbBlue_Scroll
  122. End Sub
  123. Sub hsbBlue_Scroll ()
  124.     DoColor
  125. End Sub
  126. Sub hsbGreen_Change ()
  127.     hsbGreen_Scroll
  128. End Sub
  129. Sub hsbGreen_Scroll ()
  130.     DoColor
  131. End Sub
  132. Sub hsbRed_Change ()
  133.     hsbRed_Scroll
  134. End Sub
  135. Sub hsbRed_Scroll ()
  136.     DoColor
  137. End Sub
  138. Sub menuAboutBox_Click ()
  139.     About2.Caption = "RGB Function Color Demo"
  140.     About2.Label2.Caption = "RGB Color Demo"
  141.     About2.Label1.Caption = "Version 1.1"
  142.      About2.Show modal
  143. End Sub
  144. Sub menuHelp_Click ()
  145.     'This is primitive But it works
  146.     'Path$ = App.Path
  147.     'If Right$(Path$, 1) <> "\" Then
  148.     '    Path$ = Path$ + "\"
  149.     'End If
  150.     HelpFile$ = "VB\VB.HLP"
  151.     'HelpFile$ = Path$ + "VB.HLP"
  152.     'Directory$ = Dir$("VB", 16)
  153.     Stop
  154.     wCmd = HELP_INDEX
  155.     dwData = HELP_CONTEXT
  156.     Temp% = WinHelp(hWnd, HelpFile$, wCmd, dwData)
  157. End Sub
  158.